home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / Alfresco / TstSelct.dpr < prev    next >
Encoding:
Text File  |  1999-10-31  |  585 b   |  34 lines
  1. program TstSelct;
  2.  
  3. {$IFDEF Win32}
  4. {$APPTYPE CONSOLE}
  5. {$ENDIF}
  6.  
  7. uses
  8.   {$IFDEF Windows}
  9.   WinCrt,
  10.   {$ENDIF}
  11.   SysUtils;
  12.  
  13. var
  14.   ToBeSelected : integer;
  15.   Remaining : integer;
  16.   Item      : integer;
  17.   Inx       : integer;
  18. begin
  19.   writeln('Selecting 10 items out of 100...');
  20.   Randomize;
  21.   ToBeSelected := 10;
  22.   Remaining := 100;
  23.   Inx := 0;
  24.   for Item := 1 to 100 do begin
  25.     if Random < (ToBeSelected / Remaining) then begin
  26.       inc(Inx);
  27.       writeln(Inx:2, ': ', Item);
  28.       dec(ToBeSelected);
  29.     end;
  30.     dec(Remaining);
  31.   end;
  32.   readln;
  33. end.
  34.